/*  NETMAJ-XUI -- X User Interface --  Copyright Notice
 *
 *      Copyright (c) 1995,1996 Todo Software All rights reserved.
 *
 *   You can redistribute it and/or modify this software under the terms
 *  of the GNU General Public License version 2 as published by
 *  the Free Software Foundation.
 *
 *   This software is provided 'as-is', without any express or implied
 *  warranty.  In no event will the author be held liable for any damages
 *  arising from the use of this software.
 *  See the gpl.text for more details.
 *
 *   If you would like to do something with NETMAJ that this copyright
 *  prohibits (such as distributing it with a commercial product,
 *  using portions of the source in some other program, etc.), please
 *  contact the author (preferably via email).  Arrangements can
 *  probably be worked out.
 *
 *   Todo Software : NBC02365@niftyserve.or.jp
 */
#define MAIN
#include "nu.h"

extern chunk_t s_text;

main ()
{
  pointer p;

  nu_init ();

  for (;;)
    {
      p = readexpr ();
      if (p == 0 || p == nil ())
	{
	  break;
	}
      expr_print (p);
      interp (p);
      fprintf (stdout, "%d", name_value ("abc"));
      fprintf (stdout, "%s", name_value ("abc"));
/*      compile (p); */
    }
/*  finish(); */

/*  disa (chunk_text (s_text), chunk_used (s_text)); */

  exit (0);
}
